home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / ditroff / tmac.sdoft < prev    next >
Encoding:
Text File  |  1988-12-21  |  13.6 KB  |  864 lines
  1. .\"    From mel Sat Sep 16 14:46:23 1978
  2. .\"    the GF macro places figures.
  3. .\"    G8 is zero until the figure is placed
  4. .\"    G5 is non-zero if there was an argument
  5. .\"     on GB which specifies
  6. .\"      1 - top
  7. .\"      2 - bottom
  8. .\"      3 - next page
  9. .\"      4 - at this point
  10. .\"    the macros HN - top next page
  11. .\"    HT - top this page
  12. .\"    HB - bottom this page
  13. .\"    HH : here on this page
  14. .\"    The current algorithm is: if it does not fit,
  15. .\"    top next page; otherwise if no arg to GB
  16. .\"    put it at top or bottom of this page, whichever
  17. .\"    is closer (there is a threshold of half the figure
  18. .\"    size or something)
  19. .\"    if arg to GB is given it governs.
  20. .\"
  21. .de Vx    \" volume, number, Month, year, page 1, page n, top title(s) in one blast (bwk)
  22. .\" also needs DY for date received as 31 July 1978
  23. .ds VN \\$1
  24. .ds NU \\$2
  25. .ds mo \\$3
  26. .if "\\$3"January" .ds MO JANUARY
  27. .if "\\$3"February" .ds MO FEBRUARY
  28. .if "\\$3"March" .ds MO MARCH
  29. .if "\\$3"April" .ds MO APRIL
  30. .if "\\$3"May" .ds MO MAY
  31. .if "\\$3"June" .ds MO JUNE
  32. .if "\\$3"July" .ds MO JULY
  33. .if "\\$3"August" .ds MO AUGUST
  34. .if "\\$3"September" .ds MO SEPTEMBER
  35. .if "\\$3"October" .ds MO OCTOBER
  36. .if "\\$3"November" .ds MO NOVEMBER
  37. .if "\\$3"December" .ds MO DECEMBER
  38. .nr yr \\$4
  39. .nr P \\$5-1
  40. .nr P< \\$5
  41. .pn \\$5
  42. .nr P> \\$6
  43. .ds Tl \\$7
  44. .ds Tr \\$8
  45. ..
  46. .de PS    \" start picture (bwk)
  47. .    \" $1 is height, $2 is width in units
  48. .if t .SP .3
  49. .in (\\n(.lu-\\$2u)/2u
  50. .ne \\$1u
  51. ..
  52. .de PE    \" end of picture
  53. .in
  54. .if t .SP .6
  55. ..
  56. .di XX
  57. .nr Q1 0
  58. .rn ne NE
  59. .de ne
  60. .nr NB \\$1v
  61. .if \\n(.t<\\n(NB \{\
  62. .dt \\n(.du+4u \\*(DT
  63. .sp\}
  64. ..
  65. .ds Co \s12\v'.2m'\(co\v'-.2m'\s0 19\\n(yr by John Wiley & Sons, Ltd.
  66. .de CO
  67. .ps 8
  68. .vs 9p
  69. .nf
  70. SOFTWARE\(emPRACTICE AND EXPERIENCE, VOL. \\*(VN, \\n(P<-\\n(P> (19\\n(yr)
  71. .fi
  72. .ft 1
  73. .lt \\n(LLu
  74. .ps \\n(PS
  75. .vs \\n(VSp
  76. ..
  77. .nr BS 1
  78. .de IZ
  79. .if \\n(PS=0 .nr PS 10
  80. .if \\n(VS=0 .nr VS 12
  81. .if \\n(PL=0 .nr PL 10.25i
  82. .if \\n(LP=0 .nr LP 8i
  83. .if \\n(LL=0 .nr LL 5.6i
  84. .if \\n(LS=0 .nr LS 0.9v
  85. .if \\n(JS=0 .nr JS 0.5v
  86. .nr ZI 0.3i
  87. .nr ZJ 0.3i
  88. .ps \\n(PS
  89. .vs \\n(VSp
  90. .pl \\n(PLu
  91. .ll \\n(LLu
  92. .nr L4 \\n(LPu-\\n(LSu
  93. .dt \\n(L4u EP
  94. .ds DT EP
  95. .em EM
  96. ..
  97. .de TL
  98. .IZ
  99. .rm IZ
  100. .CO
  101. .SP .5i
  102. .ps 16
  103. .ft 1
  104. .vs 30p
  105. .br
  106. .if \\n(.d=0 .nr TP 1
  107. .if \\n(.t<4v .nr TO 1
  108. .di TX
  109. .nr FR 0
  110. .nr IT 1
  111. .na
  112. .ll \\n(LLu-.5i
  113. ..
  114. .de ET
  115. .br
  116. .di
  117. .dt \\n(L4u \\*(DT
  118. .ad
  119. .ll \\n(LLu
  120. .ce 100
  121. .nf
  122. .TX
  123. .rm TX
  124. .fi
  125. .nr IT 0
  126. ..
  127. .de AU
  128. .if \\n(IT>0 .ET
  129. .ft 1
  130. .br
  131. .sp .6
  132. .ps 8
  133. .vs \\n(VSp
  134. .ce 100
  135. ..
  136. .de AI
  137. .sp 3p
  138. .ps 8
  139. .ft 2
  140. .ce 100
  141. ..
  142. .de RD
  143. .ps -1
  144. .ce
  145. .if \\n(.n>\\n(.l .tm Too many authors on a line
  146. ..
  147. .de AB
  148. .ce 0
  149. .nr AB 1
  150. .ft 3
  151. .ce
  152. .SP .2i
  153. SUMMARY
  154. .ps \\n(PS
  155. .vs \\n(VSp
  156. .SP .5v
  157. ..
  158. .de AE
  159. .ft 1
  160. .nr AB 0
  161. .nr FR 0
  162. .nr HI 1
  163. .SP .8v
  164. ..
  165. .de OK
  166. .br
  167. .ft 1
  168. .ps 6
  169. KEY WORDS  \c
  170. .ps 7
  171. ..
  172. .de PP
  173. .RT
  174. .if \\n(.i>0 .SP \\n(JSu
  175. .in 0
  176. .if \\n(FR=0 .ps \\n(PS
  177. .ti +2n
  178. .if \\n(AB=0 .ft 1
  179. .nr FR 1
  180. ..
  181. .de LP
  182. .RT
  183. .if \\n(.i>0 .SP \\n(JSu
  184. .in 0
  185. .if \\n(FR=0 .ps \\n(PS
  186. .nr FR 1
  187. .if \\n(AB=0 .ft 1
  188. ..
  189. .de IP
  190. .ce 0
  191. .if \\n(FR=0 .ps \\n(PS
  192. .nr FR 1
  193. .if \\n(.i=0 .SP .5v
  194. .in \\n(ZJu
  195. .ti -\\n(ZIu
  196. \\$1\h'|\\n(ZIu'\c
  197. ..
  198. .de JP
  199. .ce 0
  200. .\".if \\n(.d>0 .if \\n(.d<1.5v .if \\n(HI=0 .tm Top widow page \\n% (JP)
  201. .if \\n(FR=0 .ps \\n(PS
  202. .nr FR 1
  203. .if \\n(.i=0 .SP \\n(JSu
  204. .in \\n(ZJu
  205. .ti -.4i
  206. .if \\n(.f=1 \h'0.3i-\w"(\f2\\$1\|\fP)"u'(\f2\\$1\|\fP)\h'|.4i'\c
  207. .if \\n(.f=2 \h'0.3i-\w"(\f2\\$1\^\fP)"u'(\f2\\$1\^\fP)\h'|.4i'\c
  208. ..
  209. .de SH
  210. .nr HQ \\n(HI
  211. .RT
  212. .in 0
  213. .nr HI \\n(HQ
  214. .ne 2v+\\n(.Vu
  215. .ft 3
  216. .if \\n(HI=0 .if \\n(.d>0 .SP 1.25v
  217. .if \\n(HI>0 .if \\n(.d>0 .if \\n(FR>0 .sp 1
  218. .nr FR 1
  219. .nr HI 1
  220. ..
  221. .de EP
  222. .di
  223. .nr L1 \\n(dn
  224. .ev 1
  225. .ce 0
  226. .ll \\n(LLu
  227. .br
  228. .rs
  229. .sp .75i-1v
  230. .if \\n(TP=0 .PT
  231. .if \\n(TP>0 .sp
  232. .nr TO 0
  233. .sp 1
  234. .nr P1 \\n(LP-\\n(L1
  235. .nf
  236. .nr P1 -\\n(G1
  237. .nr P1 -\\n(G2
  238. .if \\n(P1<0 .nr Q1 0
  239. .if \\n(EX=1 .nr Q1 0  \" don't pad on last page of article
  240. .nr P3 \\n(P1
  241. .if \\n(G1>0 .GT
  242. .if \\n(G1>0 .if \\n(EX=0 .sp \\n(P1u
  243. .if \\n(G1>0 .if \\n(EX=0 .nr P1 0
  244. .rm GT
  245. .if \\n(G1>0 .nr Q1 0 \" if top figure, pad below
  246. .if \\n(G2>0 .nr Q1 0 \" if bottom figure pad above
  247. .if \\nB .tm Page \\n%: pad \\n(P3 space \\n(Q1 places, top \\n(G1, bot \\n(G2
  248. .XX
  249. .nf
  250. .if \\n(G2>0 .if \\n(P1>0 .sp \\n(P1u
  251. .if \\n(G2>0 .nr P1 0
  252. .if \\n(G2>0 .GB
  253. .nr G1 0
  254. .nr G2 0
  255. .if \\n(EX>0 .if \\n(P1>0 .sp \\n(P1u
  256. .if \\nB .tm Bottom of page \\n% at \\n(nl
  257. .rm GB
  258. .PF
  259. .bp
  260. .nr TQ \\n(TP
  261. .nr TP 0
  262. .nr G1 \\n(G3
  263. .rn GN GT
  264. .nr G3 0
  265. .ev 
  266. .nr FP 0
  267. .nr Q1 0
  268. .nr L4 \\n(LPu-\\n(LSu
  269. .if \\n(G1>(\\n(L4-1i) .FB \" full page figure
  270. .nr L4 -\\n(G1
  271. .nr LX \\n%
  272. .af LX 1
  273. .ie \\n(LX<=26 .af LX a
  274. .el \{.nr LX -26
  275. .af LX A\}
  276. .nr L4 -\\n(C\\n(LXu
  277. .di XX
  278. .dt \\n(L4u EP
  279. .ds DT EP
  280. ..
  281. .de FB
  282. .if \\nB .tm Full page figure on page \\n%
  283. .ev 1
  284. .rs
  285. .sp .75i-1v
  286. .PT
  287. .rs
  288. .GT
  289. .rm GT
  290. .nr G1 0
  291. .PF
  292. .bp
  293. .ev
  294. ..
  295. .de CP \" cut text on page arg1 by arg2 
  296. .nr C2 \\$2v
  297. .nr C1 \\$1
  298. .af C1 1
  299. .if \\n(C1>52 .tm Page>52, gok what happens.
  300. .ie \\n(C1<=26 .af C1 a
  301. .el \{.nr C1 -26
  302. .af C1 A\}
  303. .if \\n(C2>0 .nr C\\n(C1 \\n(C2
  304. ..
  305. .de SP
  306. .if \\n(.t<\\$1 .\\*(DT
  307. .if \\n(.d>0 .ST \\$1
  308. ..
  309. .de ST
  310. .sp \\$1
  311. .nr Q1 +1
  312. \!.FI
  313. ..
  314. .de FI
  315. .nr P4 0
  316. .if \\n(Q1>0 .nr P4 3*((\\n(P1/3)/\\n(Q1)
  317. .sp \\n(P4u
  318. .if \\n(P4>1v .tm Padding of \\n(P4u exceeds one space page \\n%
  319. .nr P1 -\\n(P4
  320. .nr Q1 -1
  321. ..
  322. .de CL \" change length: add/sub lines this page
  323. .nr CN \\$1v
  324. .nr L4 \\n(L4+\\n(CN
  325. .dt \\n(L4u EP
  326. ..
  327. .de GB
  328. .    \"argument positions: 1 top here, 2 bottom here, 3 next page, 4 right here
  329. .if \\n(.$>0 .if \\$1=4 .br
  330. .ev 1
  331. .di GD
  332. .ll \\n(LLu
  333. .if \n(KK=0 .ps \\n(PS-2
  334. .if \n(KK=0 .vs \\n(VSp-4p
  335. .nr G5 0
  336. .if \\n(.$>0 .nr G5 \\$1
  337. .fi
  338. ..
  339. .de GF
  340. .br
  341. .di
  342. .nf
  343. .nr G0 \\n(dn
  344. .nr G0 +1v
  345. .nr G8 0  \" not placed
  346. .if \\n(KG=0 .if \\n(G8=0 .if \\n(G0>\\n(.t .HN
  347. .if \\n(G8=0 .if \\n(G5=0 .if \\n(G0>2*\\n(.d .if \\n(G1=0 .HT
  348. .if \\n(G8=0 .if \\n(G5=0 .if 3*\\n(G0>2*\\n(.t .if \\n(G2=0 .HB
  349. .if \\n(G8=0 .if \\n(G5=0 .HH
  350. .if \\n(G8=0 .if \\n(G5=1 .HT
  351. .if \\n(G8=0 .if \\n(G5=2 .HB
  352. .if \\n(G8=0 .if \\n(G5=3 .HN
  353. .if \\n(G8=0 .if \\n(G5=4 .HH
  354. .rm GD
  355. .ps \\n(PS
  356. .vs \\n(VSp
  357. .ev
  358. ..
  359. .de FS
  360. .GB 2
  361. .br
  362. .if \\n(FP=0 \{\
  363. .vs 2p
  364. .br
  365. \l'.75i'
  366. .vs
  367. .sp 2p
  368. .nr FP 1
  369. .br\}
  370. ..
  371. .de FE
  372. .GF
  373. ..
  374. .de KS
  375. .if \\n(KK=0 .GB 4
  376. .nr KK 1
  377. .nr KG 1
  378. ..
  379. .de KE
  380. .if \\n(KK>0 .GF
  381. .nr KK 0
  382. .nr KG 0 \" KG on if not a floating display
  383. ..
  384. .de HN
  385. .if \\n(G3>0 .tm Two figures pushed to next page.
  386. .da GN
  387. .GD
  388. .sp 1
  389. .di
  390. .nr G3 \\n(dn
  391. .nr G8 1
  392. ..
  393. .de HT
  394. .nr L4 -\\n(G0
  395. .dt \\n(L4u \\*(DT
  396. .da GT
  397. .GD
  398. .sp
  399. .di
  400. .nr G1 +\\n(dn
  401. .nr G8 1
  402. ..
  403. .de HB
  404. .da GB
  405. .if \\n(FP=0 .sp
  406. .GD
  407. .di
  408. .nr G2 +\\n(dn
  409. .nr G8 1
  410. .nr L4 -\\n(dn
  411. .dt \\n(L4u \\*(DT
  412. ..
  413. .de HH
  414. .SP .5v
  415. .if \\n(G0>\\n(.t .if \\n(KK>0 .sp 10i
  416. .GD
  417. .SP .5v
  418. .nr G8 1
  419. ..
  420. .de RR
  421. .ce 0
  422. .if \\n(FR=0 .ps \\n(PS
  423. .nr FR 1
  424. .ft 1
  425. .in .3i
  426. .if \\n(.$ .ti -.3i
  427. .if \\n(.$ \\$1\ \ \c
  428. ..
  429. .de RF
  430. .SP 2v
  431. .ps \\n(PS-2
  432. .vs \\n(VS-3
  433. .ne 3v
  434. .ce
  435. .ps -1
  436. REFERENCES
  437. .sp 3p
  438. ..
  439. .de PT
  440. .if \\n(PF>0 .af % 1
  441. .if \\n(Pf>0 .if o .tl ""\s7\\*(Tr\s0"\s10\\n%"
  442. .if \\n(Pf>0 .if e .tl "\s10\\n%"\s7\\*(Tl\s0""
  443. ..
  444. .de PF
  445. .sp 1v
  446. .lt \\n(.lu
  447. .nr Ss \\n(.s
  448. .nr Sf \\n(.f
  449. .ps 9
  450. .nr yr \\n(yr%1900
  451. .af NU 01
  452. .af VN 01
  453. .af P< 0001
  454. .nr VN \\*(VN
  455. .nr NU \\*(NU
  456. .\" price = 1.00 if <= 10 pages, otherwise .10/page.
  457. .nr p1 (1+\\n(P>-\\n(P<)*10
  458. .if \\n(p1<100 .nr p1 100
  459. .nr p2 \\n(p1%100
  460. .nr p1 \\n(p1/100
  461. .ds pr \\n(p1.\\n(p2
  462. .if \\n(Pf=0 .tl "\s90038-0644/\\n(yr/\\n(NU\\n(VN-\\n(P<$0\\*(pr""\f2Received \\*(DY\f1\s0"
  463. .if \\n(Pf=0 \s9\\*(Co\s0
  464. .af % 1
  465. .nr Pf \\n(Pf+1
  466. .ft \\n(Sf
  467. .ps \\n(Ss
  468. ..
  469. .de EQ  \"equation, breakout and display
  470. .nr EF \\n(.u
  471. .ds EE \\h'.5i'    \" default for indent is .5 inch
  472. .nr LE 1    \" 1 is center, 0 is I or L
  473. .ds EL \\$1
  474. .if "\\$1"L" .ds EL \\$2
  475. .if "\\$1"L" .nr LE 0
  476. .if "\\$1"C" .ds EL \\$2
  477. .if "\\$1"I" .nr LE 0
  478. .if "\\$1"I" .ds EE \\h'.5i'
  479. .if "\\$1"I" .if !"\\$3"" .ds EE \\h'\\$3'
  480. .if "\\$1"I" .ds EL \\$2
  481. .ev 1
  482. .di EZ
  483. ..
  484. .\"        -----------------------------
  485. .de EN  \" end of a displayed equation
  486. .if !"\\n(.z"EZ" .tm EN not preceded by EQ, disaster follows.
  487. .br
  488. .ce 0
  489. .di
  490. .rm EZ
  491. .ev
  492. .nr ZN 1
  493. .if "\\*(10"" .nr ZN 0
  494. .if \\n(ZN=0 .if !"\\*(EL"" .nr ZN 1
  495. .lt \\n(.lu
  496. .br
  497. .if \\n(ZN>0 .if !\\n(.d=\\n(PE .SP 0.5
  498. .pc
  499. .if \\n(BD>0 .nr LE 0 \" can't mean centering in this case.
  500. .if \\n(ZN>0 .if \\n(LE>0 .tl \(ts\(ts\\*(10\(ts\\*(EL\(ts
  501. .if \\n(ZN>0 .if \\n(LE=0 .if \\n(BD=0 .tl \(ts\\*(EE\\*(10\(ts\(ts\\*(EL\(ts
  502. .if \\n(ZN>0 .if \\n(LE=0 .if \\n(BD>0 \!\\*(10\\\\t\\*(EL
  503. .if \\n(ZN>0 .if \\n(LE=0 .if \\n(BD>0 .if \\n(BD<\\w'\\*(10' .nr BD \\w'\\*(10'
  504. .lt \\n(LLu
  505. .pc %
  506. .br
  507. .if \\n(ZN>0 .if \\n(EF>0 .fi
  508. .rm EL
  509. .if \\n(ZN>0 .SP 0.5
  510. .nr PE \\n(.d
  511. .rm 10
  512. ..
  513. .de B
  514. .if \\n(.$>0 \\$3\f3\\$1\fP\\$2
  515. .if \\n(.$=0 .ft 3
  516. ..
  517. .de I
  518. .if \\n(.$>0 \\$3\f2\\$1\fP\^\\$2
  519. .if \\n(.$=0 .ft 2
  520. ..
  521. .de R
  522. .ft 1
  523. ..
  524. .de EM
  525. .br
  526. .nr EX 1
  527. .wh -1p .CM
  528. .sp 100
  529. ..
  530. .de TS
  531. .nf
  532. .sp .5v
  533. ..
  534. .de TE
  535. .fi
  536. .sp .5v
  537. ..
  538. .de CM
  539. .po 0
  540. .tl '\(ru'''
  541. .po
  542. ..
  543. .wh 0 CM
  544. .de RT
  545. .br
  546. .\".if \\n(.d>0 .if \\n(.d<1.5v .if \\n(HI=0 .tm Top widow page \\n%
  547. .IZ
  548. .rm IZ
  549. .if "\\n(.z"PA" .tm Warning: are you missing a .P2?
  550. .if \\n(IT>0 .ET
  551. .ps \\n(PS
  552. .vs \\n(VSp
  553. .if \\n(HI .sp .5v
  554. .if \\n(HI .if \\n(.d<=1.5v .if \\n(G1=0 .sp .5v
  555. .nr HI 0
  556. .ce 0
  557. ..
  558. .   \"ACCENTS  say \*'e or \*`e to get e acute or e grave
  559. .ds ' \h'\w'e'u*4/10'\z\(aa\h'-\w'e'u*4/10'
  560. .ds ` \h'\w'e'u*4/10'\z\(ga\h'-\w'e'u*4/10'
  561. .   \"UMLAUT  \*:u, etc.
  562. .ds : \v'-0.6m'\h'(1u-(\\n(.fu%2u))*0.13m+0.06m'\z.\h'0.2m'\z.\h'-((1u-(\\n(.fu%2u))*0.13m+0.26m)'\v'0.6m'
  563. .  \"TILDE and CIRCUMFLEX
  564. .ds ^ \\k:\h'-\\n(.fu+1u/2u*2u+\\n(.fu-1u*0.13m+0.06m'\z^\h'|\\n:u'
  565. .ds ~ \\k:\h'-\\n(.fu+1u/2u*2u+\\n(.fu-1u*0.13m+0.06m'\z~\h'|\\n:u'
  566. .    \"dotted arrow
  567. .ds > \v'-.1m'\s-4---\z-\v'.1m'\h'-.3m'\z>\s+4
  568. .        \"czech symbol as in kucera & francis
  569. .ds C \h'.1m'\v'-0.6m'\s6\zv\s0\v'0.6m'\h'-.1m'
  570. ..
  571. .    \"NH - numbered heading
  572. .de NH
  573. .nr HQ \\n(HI
  574. .RT
  575. .nr HI \\n(HQ
  576. .ne 2v+\\n(.Vu
  577. .ft 1
  578. .if \\n(Nh=0 .SP 1.2v
  579. .nr Nh \\n(Nh+1
  580. .if \\n(HI=0 .if \\n(.d>0 .SP 1.5v
  581. .if \\n(HI>0 .if \\n(.d>0 .if \\n(FR>0 .sp 1
  582. .nr FR 1
  583. .nr HI 1
  584. .ce 100
  585. \\n(Nh.  \c
  586. ..
  587. .de IH
  588. .nr H4 +1
  589. .ft 2
  590. \\n(H1.\\n(H2.\\n(H3.\\n(H4 \\$1
  591. .ft 1
  592. ..
  593. .de UX
  594. .ie \\n(GA>0 \\$2\s-2UNIX\s0\\$1
  595. .el \{\
  596. .if n \\$2UNIX\(dg\\$1
  597. .if t \\$2\s-2UNIX\s0\(dg\\$1
  598. .FS
  599. \(dg \s-2UNIX\s0 is a trademark of Bell Laboratories.
  600. .FE
  601. .nr GA 1\}
  602. ..
  603. .de Ux \" cap-small cap, not used
  604. .\" .ie \\n(GA>0 \\$2U\s-2NIX\s0\\$1
  605. .ie \\n(GA>0 \\$2\s-2UNIX\s0\\$1
  606. .el \{\
  607. .if n \\$2UNIX*\\$1
  608. .\".if t \\$2U\s-2NIX\s0*\\$1
  609. .if t \\$2\s-2UNIX\s0*\\$1
  610. .FS
  611. * \s-2UNIX\s0 is a trademark of Bell Laboratories.
  612. .FE
  613. .nr GA 1\}
  614. ..
  615. .de US
  616. the
  617. .UX
  618. operating system
  619. ..
  620. .so /sprite/lib/ditroff/tmac.sddisp
  621. .de KF
  622. .if \\n(KK=0 .GB
  623. .nr KK 1
  624. ..
  625. .tr |\(or
  626. .de UL
  627. .if n .ul
  628. \&\\$3\f3\\$1\fP\&\\$2
  629. ..
  630. .de UC
  631. \&\\$3\s-2\\$1\\s+2\&\\$2
  632. ..
  633. .de Uc \" cap-small cap, not used
  634. .\" \&\\$4\\$1\s-2\\$2\s+2\&\\$3
  635. \&\\$4\s-2\\$1\\$2\s+2\&\\$3
  636. ..
  637. .de IT
  638. .if n .ul
  639. \&\\$3\f2\\$1\fP\|\&\\$2
  640. ..
  641. .de UP
  642. \&\\$3\\f3\s-2\\$1\s+2\f1\&\\$2
  643. ..
  644. .de P1
  645. .nr PC \\n(.i
  646. .nf
  647. .di PA
  648. .lg 0
  649. .if n .ls 1
  650. .if n .ta 5 10 15 20 25 30 35 40 45 50 55 60
  651. .if t .ta .4i .8i 1.2i 1.6i 2i 2.4i 2.8i 3.2i 3.6i 4i 4.4i 4.8i 5.2i 5.6i
  652. .if t .tr -\-|\(bv'\(fm*\(**
  653. .if t .tr ~\(ap
  654. .tr _\(ru
  655. .if t .ss 20
  656. .ft 3
  657. .lg 0
  658. .ps 9
  659. .vs 12p
  660. .in 0
  661. ..
  662. .de P2
  663. .if t .ss 12
  664. .ft R
  665. .if n .ls 2
  666. .tr --''^^!!**
  667. .lg
  668. .in \\n(PCu
  669. .di
  670. .if \\n(dl>(\\n(.l-\\n(.i) .tm Page \\n% program fragment too wide
  671. .nr PB \\n(.l-\\n(dl-\\n(.i-2n
  672. .if \\n(PB<0 .nr PB 0
  673. .nr PB \\n(PB/2
  674. .    \" indent; don't center
  675. .nr PB .5i
  676. .in +\\n(PBu
  677. .nf
  678. .SP .5v
  679. .PA
  680. .SP .5v
  681. .in -\\n(PBu
  682. .fi
  683. .ps \\n(PS
  684. .vs \\n(VSp
  685. ..
  686. .de X
  687. .ul
  688. \&\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
  689. ..
  690. .de Y
  691. .ti \\n(.yu*2u
  692. .ul
  693. \&\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
  694. ..
  695. .de QH
  696. .NH 2
  697. .ti 0
  698. .ft 2
  699. ..
  700. .de PN
  701. .nr NQ \\n(.f
  702. \&\\$3\\f3\\$1\f\\n(NQ\\$2
  703. ..
  704. .de ][
  705. .\".if \\n(.d>0 .if \\n(.d<1.5v .tm Top widow page \\n%
  706. .if \\$1>5 .tm Bad arg to ][
  707. .Fx \\*([D
  708. .[\\$1
  709. ..
  710. .if n .ds [. [
  711. .if t .ds [. \s-2\v'-.4m'\f1
  712. .if n .ds .] ]
  713. .if t .ds .] \v'.4m'\s+2\fP
  714. .if n .ds [o ""
  715. .if n .ds [c ""
  716. .if t .ds [o `
  717. .if t .ds [c '
  718. .de [5 \" tm style
  719. .QP "\\*([F.\0"
  720. \\*([A,
  721. unpublished work
  722. (\\*([D).
  723. .in 0
  724. .RT
  725. ..
  726. .de [0 \" other
  727. .QP "\\*([F.\0"
  728. .if !"\\*([A"" \\*([A,
  729. .if !"\\*([T"" \\f2\\*([T\\f1\c
  730. .if !"\\*([T"" .if !"\\*([O"" ,\ 
  731. .ie !"\\*([O"" \\*([O
  732. .el .if !"\\*([T"" \&.
  733. .if !"\\*([D"" \\*([D.
  734. .in 0
  735. .RT
  736. ..
  737. .de [1 \" journal article
  738. .if "\\*([Q"This issue" .rm [V [N [D
  739. .if !"\\*([R"" .rm [C
  740. .QP "\\*([F.\0"
  741. .if !"\\*([A"" \\*([A,
  742. .if !"\\*([T"" \\*([o\\*([T,\\*([c
  743. .ft 2
  744. .if "\\*([V"" .if !"\\*([C"" \\*([J,
  745. .if "\\*([V"" .if "\\*([C"" .if !"\\*([Q"This issue"  \\*([J
  746. .if "\\*([V"" .if "\\*([C"" .if "\\*([Q"This issue"  \\*([J,
  747. .if !"\\*([V"" \\*([J,
  748. .ft 1
  749. .if !"\\*([V"" \{.if n Vol.\&
  750. \\f3\\*([V\\f1,\}
  751. .if !"\\*([N"" \\*([N,
  752. .if !"\\*([C"" \\*([C
  753. .if !"\\*([P"" \\*([P
  754. .if !"\\*([D"" (\\*([D).
  755. .in 0
  756. .RT
  757. ..
  758. .de [2 \" book
  759. .QP "\\*([F.\0"
  760. .if !"\\*([A"" \\*([A,
  761. \\f2\\*([T,\\f1
  762. \\*([I,
  763. .if !"\\*([D"" \\*([D\c
  764. .if !"\\*([Q"NP" \&.
  765. .if !"\\*([G"" Gov't. ordering no. \\*([G
  766. .if !"\\*([O"" \\*([O
  767. .in 0
  768. .RT
  769. ..
  770. .de [4 \" report
  771. .if "\\*([I"Bell Laboratories" .rm [C
  772. .QP "\\*([F.\0"
  773. \\*([A, \\*([o\\*([T,\\*([c
  774. \\*([R\c
  775. .if !"\\*([G"" \& (\\*([G)\c
  776. .if !"\\*([I"" ,  \\*([I\c
  777. .if !"\\*([C"" ,  \\*([C\c
  778. .if !"\\*([D"" \\0(\\*([D)\c
  779. .if !"\\*([Q"NP" \&.
  780. .if !"\\*([O"" \\*([O
  781. .in 0
  782. .RT
  783. ..
  784. .de [3 \" article in book
  785. .QP "\\*([F.\0"
  786. \\*([A, \\*([o\\*([T,\\*([c
  787. in \\f2\\*([B\\f1\c
  788. .if !"\\*([E"" , ed. \\*([E\c
  789. .if "\\*([E"" ,\c
  790. .if !"\\*([I"" \ \\*([I,\c
  791. .if !"\\*([P"" \ \\*([P
  792. .if !"\\*([D"" \ (\\*([D).
  793. .in 0
  794. .RT
  795. ..
  796. .de ]<
  797. .SP 2v
  798. .ti 0
  799. .nf
  800. .ps -1
  801. .ce
  802. REFERENCES
  803. .ps
  804. .nr PS 8
  805. .nr VS 8
  806. .nr PI \w'\s8\0\0.\0'
  807. .sp .5v
  808. .fi
  809. .LP
  810. .rn RP IP
  811. ..
  812. .de Fx    \" fix date to discard all but year
  813. .ds [D \\$\\n(.$
  814. ..
  815. .de ]>
  816. .sp
  817. ..
  818. .de ]-
  819. .rm [V [P [A [T [N [C [B [O [R [I [E [Q [D [Q
  820. ..
  821. .de QP
  822. .LP
  823. .in \\n(PIu
  824. .ta \\n(PIuR
  825. .ti 0
  826. \t\\$1\\c
  827. ..
  828. .de LB
  829. .RT
  830. .nr ZB .4i
  831. .if !"\\$2"" .nr ZB \\$2n
  832. .in \\n(ZJu
  833. .ti -\\n(ZBu
  834. .ta \\n(ZBu
  835. \\$1\t\\c
  836. ..
  837. .de RS
  838. .nr ZJ +.3i
  839. ..
  840. .de RE
  841. .nr ZJ -.3i
  842. ..
  843. .de RP
  844. .ce 0
  845. .if \\n(FR=0 .ps \\n(PS
  846. .nr FR 1
  847. .in .4i
  848. .ta .2i
  849. .if \\n(.$>0 .ti 0-.1i-\h'\w'\\$1'u'
  850. .if \\n(.$>0 \\$1\h'|.4i'\c
  851. ..
  852. .ds s \s-2
  853. .de MH
  854. Bell Laboratories, Murray Hill, New Jersey 07974, U. S. A
  855. ..
  856. .de HO
  857. Bell Laboratories, Holmdel, New Jersey 07733, U. S. A.
  858. ..
  859. .de WH
  860. Bell Laboratories, Whippany, New Jersey 07981, U. S. A.
  861. ..
  862. .ds n \s+2
  863. .so /sprite/lib/ditroff/tmac.sdrefs
  864.